*> 100 Cool Things - http://cobolrocks.codeplex.com/
*> Copyright (c) 2009
*> by Emerson Lopes - emersonlopes@gmail.com
*>
*> Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated 
*> documentation files (the "Software"), to deal in the Software without restriction, including without limitation 
*> the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and 
*> to permit persons to whom the Software is furnished to do so, subject to the following conditions:
*>
*> The above copyright notice and this permission notice shall be included in all copies or substantial portions 
*> of the Software.
*>
*> THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED 
*> TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL 
*> THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF 
*> CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER 
*> DEALINGS IN THE SOFTWARE.

CLASS-ID. AmexPaymentMethod AS "Legacy.AmexPaymentMethod".

    environment division.
        configuration section.
            repository.
                class SystemString as "System.String".
                
 *> Instance's data and methods
    object.
       data division.
            working-storage section.
            copy "types.book".
       
       procedure division.

             *> ...
             
             method-id. ChargeCreditCard  as "ChargeCreditCard".
             
             data division.
				linkage section.
				    01 total              type SystemDouble.
				    01 creditCardNumber   usage object reference SystemString.
				    01 securityCode       usage object reference SystemString.
			 
			 procedure division using total, creditCardNumber, securityCode.
			 
			 *>  Do some connection to the credit card operator and process the payment
			
			end method ChargeCreditCard.     
    end object.
END CLASS AmexPaymentMethod.